﻿Namespace Objetos

    Public Class PessoaFisica

#Region "Variáveis"

        Private objPessoa As Objetos.Pessoa

#End Region

#Region "Propriedades"

        Public Property CodigoPessoa As Integer
        Public Property NomeCompleto As String
        Public Property DataNascimento As Date
        Public Property Sexo As String

        Public ReadOnly Property Pessoa As Objetos.Pessoa
            Get
                If objPessoa Is Nothing Then
                    Dim objPessoas As New Negocios.Pessoa
                    objPessoa = objPessoas.EncontrarPorCodigo(Me.CodigoPessoa)
                End If

                Return objPessoa
            End Get
        End Property

#End Region

    End Class

End Namespace

